home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / VISUAL_B / H441.ZIP / VXBTEST.ZIP / VXFORM8.FRM (.txt) < prev    next >
Visual Basic Form  |  1993-01-28  |  3KB  |  95 lines
  1. VXFORM8
  2. Miscellaneous Examples
  3. Form1%
  4. ButtonQuit
  5. &Quit
  6. ButtonNext
  7. &Next
  8. JoinBox
  9. EvalBox
  10. CatNameBox
  11. CatBox
  12. Label2
  13. >vxEvalString("trim(catname)+' is category '+category", EvStr$)
  14. Label1
  15. .  vxEvalLogical("left(category,1)='C'", Eval$)
  16. Label3
  17. #xBase Expression Evaluation Example
  18. MS Sans Serif
  19. Label5
  20. Record Structure Example
  21. MS Sans Serif
  22. @    Form_Load
  23. vxSelectDbf
  24. AirtypesDbf
  25. vxTopo
  26. Form8Display
  27. CatRec
  28. vxEof
  29. vxRecord
  30. CatBox
  31. TextO
  32. Category
  33. CatNameBox6
  34. CatName    
  35. Form_Paint
  36. Form_Unload
  37. Cancel
  38. vxClose
  39. vxWindowDereg
  40. VXFORM8
  41. hWndk
  42. ButtonQuit_Click
  43. ButtonNext_Click
  44. vxSkip
  45. FALSE
  46.     vxDeleted
  47. MBuff
  48. BufferType
  49. vxEvalLogicalG
  50. EvalBox
  51. vxEvalString
  52. EvStr|
  53. JoinBox
  54. JoinBox_Change
  55. Label2_Click
  56. CatBox_Changea
  57. vxFormFrame
  58. VXFORM9
  59. vxCtlStyle
  60.     TestAlpha
  61.     VX_RECESS
  62. TestChar
  63. TestDate
  64. TestNum
  65. TestPass
  66.     TestUpper
  67. vxReplRecord
  68. vxWrite
  69. vxWriteHdr
  70. ButtonNext_Click
  71.  skip forward one record
  72.  if skip error, only allow exita
  73. Error on Skip Next. Try Reindex.
  74.  test for end of file 
  75. End of File!
  76. ButtonQuit_Click
  77. Form_Load
  78. Form_Paint
  79. Form_Unload
  80. Form8Display
  81.  the structure of the types file is defined-
  82.  in the global module as type CatRec
  83.  if we wanted to use a string as a recordc
  84.  buffer instead of a user defined type, we
  85.  would use code as follows:o
  86.    Buf$ = String$(512,0)
  87.    If vxRecord(ByVal Buf$) ThenT
  88.  we may also replace an entire
  89.  record by pointing at a defined
  90.  record or string containing the recordt
  91.  example of xBase logical expression evaluation-
  92. left(category,1)='C'
  93.  example of xBase string expression evaluation
  94. trim(catname) + ' is category ' + category
  95.